Univers Mac Interactif 53/Univers Mac Interactif - Issue 53.iso/UTILITAIRES IMPORTANTS/Player⁄Reader/HyperCard Player2.3.1/Adresses audio/Adresses audio/background_3664.xml

Extensible Markup Language | 1995-04-26 | 52KB | 1,196 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3664</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3997.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>17</top>
            <right>341</right>
            <bottom>41</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>Name</name>
        <script></script>
    </part>
    <part>
        <id>97</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>39</top>
            <right>341</right>
            <bottom>62</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>Company</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>72</top>
            <right>283</right>
            <bottom>95</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>Street</name>
        <script></script>
    </part>
    <part>
        <id>98</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>94</top>
            <right>283</right>
            <bottom>117</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>Zip</name>
        <script></script>
    </part>
    <part>
        <id>99</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>116</top>
            <right>283</right>
            <bottom>139</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>City</name>
        <script></script>
    </part>
    <part>
        <id>104</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>100</left>
            <top>138</top>
            <right>283</right>
            <bottom>161</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>State</name>
        <script></script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>114</left>
            <top>176</top>
            <right>283</right>
            <bottom>193</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Phone 1</name>
        <script></script>
    </part>
    <part>
        <id>100</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>114</left>
            <top>192</top>
            <right>283</right>
            <bottom>209</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Phone 2</name>
        <script></script>
    </part>
    <part>
        <id>101</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>114</left>
            <top>208</top>
            <right>283</right>
            <bottom>225</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Phone 3</name>
        <script></script>
    </part>
    <part>
        <id>102</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>114</left>
            <top>224</top>
            <right>283</right>
            <bottom>241</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Phone 4</name>
        <script></script>
    </part>
    <part>
        <id>81</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>24</top>
            <right>75</right>
            <bottom>40</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>Name Label</name>
        <script></script>
    </part>
    <part>
        <id>80</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>46</top>
            <right>75</right>
            <bottom>62</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Company Label</name>
        <script></script>
    </part>
    <part>
        <id>79</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>79</top>
            <right>76</right>
            <bottom>95</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Street Label</name>
        <script></script>
    </part>
    <part>
        <id>75</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>101</top>
            <right>76</right>
            <bottom>117</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Zip Code Label</name>
        <script></script>
    </part>
    <part>
        <id>82</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>145</top>
            <right>76</right>
            <bottom>161</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>State Label</name>
        <script></script>
    </part>
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>99</left>
            <top>227</top>
            <right>116</right>
            <bottom>244</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23613</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Phone Number 4</name>
        <script>on mouseUpdialNumber "Phone 4"end mouseUp</script>
    </part>
    <part>
        <id>65</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>99</left>
            <top>211</top>
            <right>116</right>
            <bottom>228</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23613</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Phone Number 3</name>
        <script>on mouseUpdialNumber "Phone 3"end mouseUp</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>99</left>
            <top>195</top>
            <right>116</right>
            <bottom>212</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23613</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Phone Number 2</name>
        <script>on mouseUpdialNumber "Phone 2"end mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>99</left>
            <top>179</top>
            <right>116</right>
            <bottom>195</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23613</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Phone Number 1</name>
        <script>on mouseUpdialNumber "Phone 1"end mouseUp</script>
    </part>
    <part>
        <id>83</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>180</top>
            <right>75</right>
            <bottom>196</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Telephone Label</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>297</left>
            <top>198</top>
            <right>363</right>
            <bottom>247</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12722</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Agenda</name>
        <script>on mouseUpset cursor to watchput "Agenda audio" into theStackgo stack theStack in new window -- ∆get the resultif it = "Annuler" then exit mouseUpif it ≠ empty thengo stack theStack -- ∆if the result ≠ emptythen answer "Pile introuvable !" && quote & theStack & quote -- ∆end ifend mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>369</left>
            <top>205</top>
            <right>416</right>
            <bottom>254</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22978</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <name>Base</name>
        <script>on mouseUpset cursor to watchgo homeend mouseUp</script>
    </part>
    <part>
        <id>51</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>297</left>
            <top>138</top>
            <right>405</right>
            <bottom>157</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Nouvelle carte</name>
        <script>on mouseUp-- Requires handler: toggleMark-- create a new card and leaving the cursor into the name fieldtoggleNotes falseset lockMessages to truedoMenu "New Card"toggleMark falseselect after text of bg field id 4end mouseUp</script>
    </part>
    <part>
        <id>52</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>297</left>
            <top>161</top>
            <right>405</right>
            <bottom>180</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Supprimer la carte</name>
        <script>on mouseUp-- Requires handler: deleteCurrentCardif the optionKey is down thendoMenu "Delete Card"exit mouseUpend ifif the number of cards in this bkgnd = 1 thenanswer "Impossible de supprimer la dernière carte d'adresse." with "OK" -- ∆exit to hyperCardend ifanswer "Supprimer cette carte d'adresse ?" with "Annuler" or "OK" -- ∆if it is "OK" then -- ∆set cursor to watchget number of this cardlock screendoMenu "Delete Card"go card it - 1unlock screenend ifend mouseUp</script>
    </part>
    <part>
        <id>53</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>297</left>
            <top>92</top>
            <right>405</right>
            <bottom>111</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Rechercher…</name>
        <script>on mouseUp-- Requires handler: findTextglobal AddressFindask "Texte recherché :" with AddressFind -- ∆if it is empty then exit mouseUpelseput it into AddressFindfindTextend ifend mouseUp</script>
    </part>
    <part>
        <id>54</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>297</left>
            <top>115</top>
            <right>405</right>
            <bottom>134</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Afficher les notes</name>
        <script>on mouseUp-- Requires handler: toggleNotes-- hide/show the Notes fieldtoggleNotes (not visible of bkgnd field "Notes")end mouseUp.</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>323</left>
            <top>68</top>
            <right>349</right>
            <bottom>91</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20461</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseDownlock screenif the shiftKey is down then go prev marked cdelse if the commandKey is down then go first cd of this bgelse go prev cd of this bgunlock screen with visual wipe left fastend mouseDownon mouseStillDown-- Requires handler: mouseDownmouseDownend mouseStillDown</script>
    </part>
    <part>
        <id>77</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>355</left>
            <top>68</top>
            <right>380</right>
            <bottom>91</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22126</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseDownlock screenif the shiftKey is down then go next marked cdelse if the commandKey is down then go last cd of this bgelse go next cd of this bgunlock screen with visual wipe right fastend mouseDownon mouseStillDown-- Requires handler: mouseDownmouseDownend mouseStillDown</script>
    </part>
    <part>
        <id>93</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>5</top>
            <right>364</right>
            <bottom>24</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>9832</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Unmark</name>
        <script>on mouseUp-- Requires handler: toggleMarktoggleMark not marked of this cardend mouseUp</script>
    </part>
    <part>
        <id>95</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>30</right>
            <bottom>19</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Sort order</name>
        <script>on mouseUphide meend mouseUp</script>
    </part>
    <part>
        <id>96</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>141</left>
            <top>0</top>
            <right>214</right>
            <bottom>19</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Name Order</name>
        <script>on mouseUphide meend mouseUp</script>
    </part>
    <part>
        <id>103</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>336</left>
            <top>1</top>
            <right>373</right>
            <bottom>29</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUp-- Requires handler: toggleMarktoggleMark not marked of this cardend mouseUp</script>
    </part>
    <part>
        <id>105</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>123</top>
            <right>76</right>
            <bottom>139</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Palatino</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>City Label</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>7</left>
            <top>64</top>
            <right>285</right>
            <bottom>247</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Notes</name>
        <script>on enterInField-- Requires handler toggleNotestoggleNotes (not visible of bkgnd field "Notes")end enterInField</script>
    </part>
    <part>
        <id>107</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>100</left>
            <top>0</top>
            <right>341</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>22</textHeight>
        <name>Correct Name</name>
        <script></script>
    </part>
    <part>
        <id>108</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>293</left>
            <top>198</top>
            <right>408</right>
            <bottom>246</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on idledo meif the result is empty thenput empty into meset script of me to emptysend ("doMenu" && quote & "Compact Stack" & quote) to HyperCardend ifset cantAbort of this stack to falseend idle</script>
    </part>
    <content>
        <layer>background</layer>
        <id>75</id>
        <text>Code postal</text>
    </content>
    <content>
        <layer>background</layer>
        <id>80</id>
        <text>Société</text>
    </content>
    <content>
        <layer>background</layer>
        <id>79</id>
        <text>Rue</text>
    </content>
    <content>
        <layer>background</layer>
        <id>82</id>
        <text>Pays</text>
    </content>
    <content>
        <layer>background</layer>
        <id>83</id>
        <text>Téléphone</text>
    </content>
    <content>
        <layer>background</layer>
        <id>96</id>
        <text>last word</text>
    </content>
    <content>
        <layer>background</layer>
        <id>95</id>
        <text>1</text>
    </content>
    <content>
        <layer>background</layer>
        <id>81</id>
        <text>Nom</text>
    </content>
    <content>
        <layer>background</layer>
        <id>105</id>
        <text>Ville</text>
    </content>
    <name>Body</name>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Script du fond "Body" de la pile Adresses audioVersion 2.3THE MESSAGE HANDLERS IN THIS SCRIPT:arrowKey,closeCard,closeStack,deleteCurrentCard,dialNumber,enterKey,exportText,findText,importText,importTextFile,ImportTextFromNewStack,ImportTextFromOldStack,printReport,resetAPButtons,returnKey,openCard,sortCards,toggleMark,toggleNotes,whichStackVersion,writeExportedText,THE FUNCTION HANDLERS IN THIS SCRIPT:executeFind,getLabelContents,lastHCItem,nameOfThisCd,substituteChar,swapItemDelimiter,theFields"--∆" indicates strings which will need localization∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openCardset the visible of bg btn "Unmark" to (not the marked of this cd)pass openCardend openCardon arrowKey whichKeyif (whichKey is "Right") and (the shiftKey is down)then go next marked cardif (whichKey is "left") and (the shiftKey is down)then go prev marked cardelse pass arrowKeyend arrowKeyon closeCardtoggleNotes falsepass closeCardend closeCardon closeStack-- compact stack (occasionally)if line 1 of the stacks is not in (the stacksInUse) thenif 10*(the freeSize of this stack) > the size of this stack thendoMenu "Compacter la pile"end ifend ifpass closeStackend closeStack-----  Sort Handler  ------------------------------------------------on sortCards SortFieldif sortField is "Name" thensort cards of this bg international by nameOfThisCd()else sort cards of this bg international by bg fld sortFieldend sortCardsfunction nameOfThisCdif bg fld "Name" is not empty thenput bg fld "Name" into TheNameif bg fld "Name Order" is "last word" thenput number of words in TheName into TheNumberif TheNumber is 1 thenput TheName into TheCorrectNameelse if TheNumber is 2 thenput word 2 of TheName & "," && ¬word 1 of TheName into TheCorrectNameelseput word 3 to TheNumber of TheName & "," && ¬word 1 to 2 of TheName into TheCorrectNameend if--else put bg fld "Name" into TheCorrectNameelse put bg fld "Company" into TheCorrectNamereturn TheCorrectNameend nameOfThisCd-----  Find Handlers  ------------------------------------------------on findText-- Requires handler: toggleNotesglobal AddressFindif AddressFind is empty then exit findTextfind string AddressFindif the result is NOT empty thenbeepanswer "“" & AddressFind & "” est introuvable." -- ∆exit findTextend ifif the short name of the foundField is "Notes" thenif not visible of bg fld "Notes" thenset cursor to watchtoggleNotes truefind string AddressFind in bg fld "Notes"end ifelseif visible of bg fld "Notes" thenset cursor to watchtoggleNotes falsefind string AddressFind in the foundFieldend ifend ifend findTexton returnKeyif executeFind() then findTextelse pass returnKeyend returnKeyon enterKeyif executeFind() then findTextelse pass enterKeyend enterKeyfunction executeFind-- Requires handler: findText-- if the cursor is not in a field or in the message box, then-- assume they want to find the text again.global AddressFindif (AddressFind is not empty) and (the selectedField is empty) thenreturn TRUEelse return FALSEend executeFindon doMenu whatglobal AddressFindif what is "Rechercher..." then put empty into AddressFind -- ∆pass doMenuend doMenu-----  Misc Handlers  ------------------------------------------------on dialNumber whichFld-- dial the phone with a specified number.put bg fld whichFld into phoneNumberif phoneNumber is empty thenask "Numéro à composer :" -- ∆if the result is "Cancel" or it is empty then exit dialNumberput it into phoneNumberend if-- the dial handler is in the Phone Dialer stackif there is a stack "Numéroteur" then  -- ∆lock screenpush cd -- remember where we arego stack "Numéroteur" -- ∆if the result is empty thendial phoneNumberpop cdunlock screenend ifelse dial phoneNumberend dialNumberon toggleMark isMarked-- 'dog ear' the card to reflect its 'marked' statusset the marked of this card to isMarkedset the visible of bg btn "Unmark" to (not isMarked)end toggleMarkon toggleNotes visStatus-- shows and hides the notes fieldlock screenset hilite of bg btn id 54 to visStatusset the visible of bg fld "Notes" to visStatusif visStatus then -- show it-- change the name of the btn to hide notes fldset the name of bg btn id 54 to "Masquer les notes" -- ∆put "wipe left fast" into theVisEffectselect after text of bg fld "Notes"else -- hide it-- change the name of the btn to hide notes fieldset the name of bg btn id 54 to "Afficher les notes" -- ∆put "wipe right fast" into theVisEffectend ifunlock screen with visual effect theVisEffectend toggleNoteson printReport-- print all the cards or just marked cardsput (the shiftKey is up) into printAllCards-- ask user to select a templateput the reportTemplates of this stack into TemplateListput "Sélectionnez un modèle de rapport pour vos adresses :"¬into textPrompt -- ∆put showList(TemplateList,textPrompt,false,true,"Sélectionner,Annuler",1)¬into TheSelection -- ∆if line 1 of TheSelection is "Annuler" then exit printReport -- ∆put line (line 2 of TheSelection) of TemplateList into theTemplate-- print addressesopen report printing with template theTemplatego first card of bg "Body"if printAllCards then print (number of cards in bg "Body") cardselse print marked cardsclose printingend printReporton dialNumber phoneNumber-- Requires handler: dial from the Phone Stack-- dial the phone using the Phone Dialer stackset cursor to watchif phoneNumber is empty then exit dialNumberpush card -- remember where we arelock screen-- the 'dial' handler is in the 'Phone Dialer' stackif there is a stack "Composeur" then -- ∆go stack "Composeur" -- ∆dial phoneNumber  -- dial the numberelse answer "Impossible de composer le numéro, car la pile Composeur est introuvable." -- ∆pop card -- return to where we wereunlock screenend dialNumber-----  Label Handler  -------------------------------function getLabelContents-- Assembles information for print labels--put empty into TheAddress--put bg fld "Street" & return & bg fld "City" & ¬", " & bg fld "State" && bg fld "Zip" into TheAddress--if bg fld "Company" is not empty thenput bg fld "Company" & return before TheAddressend if--if bg fld "Name" is not empty thenput bg fld "Name" & return before TheAddressend if--return TheAddressend getLabelContents-----  Import Text Operations  --------------------------------- text files to be imported into the stack need to be in a specific-- format: chunks of information (such as Name, Company,-- etc.) should be separated by tabson importText-- Requires handlers: importTextFromStack,importTextFile-- import text from a HyperCard 1.x or 2.x Address stack or from a text fileanswer "Importer à partir d'un fichier ou d'une pile d'adresses" ¬&& "(livré avec une version d'HyperCard) ?" ¬with "Annuler" or "Pile" or "Fichier" -- ∆if it is "Annuler" then exit importText -- ∆if it is "Pile" then whichStackVersion -- ∆else ImportTextFileend importTexton ImportTextFile fileName-- Requires handler: toggleMark, deleteCurrentCard-- Requires function handler: theFields, SubstituteChar-- import text from a text file stored in the correct formatif fileName is empty thenanswer file "Sélectionnez le fichier source :" of type "TEXT" -- ∆if the result is "Annuler" or it is empty then exit ImportTextFileput it into fileNameend ifput theFields() into fieldListset cursor to busygo last card of bg "Body" -- adds the new cards to the end of the stack -- ∆set lockRecent to trueset lockMessages to trueopen file fileNameput false into exitLooprepeat until exitLoopif the mouseClick thenanswer "Interrompre l'importation ?" with "Non" or "Oui" -- ∆if it is "Oui" then exit repeat -- ∆end ifset cursor to busydoMenu "New Card"toggleMark falserepeat with fieldNum = 1 to (number of items in fieldList - 1)read from file fileName until tabif it is empty then -- out of textdeleteCurrentCard -- delete the stragglerput true into exitLoopexit repeatend ifif last char of it is tab then delete last char of itdo "put it into" && item fieldNum of fieldListend repeatif exitLoop then exit repeatread from file fileName until returnput SubstituteChar("…", return, it) into itdo "put it into" && item fieldNum + 1 of fieldListend repeatclose file fileNameset lockRecent to falseset lockMessages to falseend ImportTextFileon whichStackVersion-- Requires handler: importTextFile-- Requires function handler: SubstituteChar, SwapItemDelimiter-- import text from the HyperCard 1.x Address stack.answer file "Sélectionnez la pile Adresse source :" of type "STAK" -- ∆if it is empty or the result is "Annuler" then exit to hyperCardput it into exportStackput exportStack into fileNameput SwapItemDelimiter(colon) into oldDelimiterdelete last item of fileNameset the itemDelimiter to oldDelimiterput fileName  & ":HCAddressExportHC" into fileNameput the long name of this stack into importStackpush cdset cursor to busyset lockMessages to trueset lockRecent to truego stack exportStack-- export all the other stacks data to a file then import into this stack -- ∆put number of bg fields into numBgFieldsif numBgFields = 0 thenanswer "Aucun champ de fond pour l'exportation de données !" -- ∆exit to hyperCardend if-- version 1.2.5 or earlierif (there is a bg fld "Name and Address") and ¬(there is a bg fld "Phone Number") and ¬(there is a bg fld "Date") thenImportTextFromOldStack fileNameelse if there is a bg "Body" and hasCorrectFlds() thenImportTextFromNewStack fileName  -- version 2.0 or laterelseanswer "Cette pile a été modifiée ou" && ¬"n'a pas été livrée avec cette version d'HyperCard."exit to HyperCardend ifgo to importStackunlock screenImportTextFile fileName -- now import the fileopen file fileNamewrite empty to file fileName  -- empty out the temp fileclose file fileNamepop cdend whichStackVersionfunction hasCorrectFldsput "Name,Company,Street,Zip,Phone 1,Phone 2,Phone 3,Phone 4,Notes" into listrepeat with i = 1 to 9if there is not a bg fld (item i of list) then return "False"end repeatput "false" into itExistsif (there is a bg fld "CityState") then put "true" into itExistsif (there is a bg fld "City") and (there is a bg fld "State")then put "true" into itExistsif itExists is "false" then return "false"return "True"end hasCorrectFldson ImportTextFromNewStack fileName-- collects from version 2.0 or later Addresses Stacksopen file fileNamerepeat the number of cds of bg "Body"set cursor to busyput bg fld "Name" into theName -- nameput bg fld "Company" into theCompany -- companyput bg fld "Street" into theStreet -- streetif there is a bg fld "CityState" then -- version 2.0v2get bg fld "CityState"put item 1 of it into theCity -- cityput item 2 of it into theState -- stateif char 1 of theState is space thendelete char 1 of theStateend ifelse -- version 2.1put bg fld "City" into theCity -- cityput  bg fld "State" into theState -- stateend ifput bg fld "Zip" into theZip -- Zip Codeput empty into thePhonesrepeat with i = 1 to 4put bg fld ("Phone" && i) & tab after thePhonesend repeatput bg fld "Notes" into theNotes -- notes fieldput SubstituteChar(return, "…", theNotes) into theNotes -- ∆write theName & tab & theCompany & tab & theStreet & tab & ¬theCity & tab & theState & tab & theZip & tab & thePhones & ¬theNotes & return to file fileNamego next cd of bg "Body"end repeatclose file fileNameend ImportTextFromNewStackon ImportTextFromOldStack fileName-- collects from version 1.2.5 or earlier Address Stacksopen file fileNamelock screenrepeat the number of cardsset cursor to busyput bg fld "Name and Address" into anAddressput the number of lines in anAddress into numLinesrepeat with lineNdx = 1 to the number of lines in anAddressif line lineNdx of anAddress = empty then exit repeatend repeatput empty into theNotesif lineNdx ≠ numLines thenif lineNdx > 4 thenput line lineNdx to 32000 of anAddress & return into theNotesdelete line lineNdx to 32000 of anAddressput word 1 to 2000 of anAddress into anAddress -- strip blank linesput the number of lines in anAddress into numLinesend ifend ifput line 1 of anAddress into theName -- Nameif (numLines - 2) > 1 then -- if there's a third to last line, it's companyput line (numLines - 2) of anAddress into theCompanyif (numLines - 2) > 2 thenput return & line 2 to (numLines - 3) of anAddress & return ¬after theNotes  -- department?end ifelse put empty into theCompanyif numLines = 2 then put line 2 of anAddress into theStreetelse if (numLines - 1) > 1 then -- if there's a second to last line, it's streetput line (numLines - 1) of anAddress into theStreet -- streetelse put empty into theStreetput empty into thePhonesrepeat with phoneNdx = 1 to 4put line phoneNdx of bg fld "Phone Number" & tab after thePhonesend repeatif bg fld "Date" ≠ empty thenput bg fld "Date" after theNotes -- move the date to the notes fieldend ifput SubstituteChar(return, "…", theNotes) into theNotes -- ∆put empty into theCityput empty into theStateput empty into theZipif numLines > 2 thenput line numLines of anAddress into lastLineput last word of lastLine into lastWordif lastWord ≠ empty thenif offset(lastWord, "/-+") = 0 thenif value(lastWord) is a number thenput lastWord into theZipdelete last word of lastLineend ifend ifend ifput item 1 of lastLine into theCityput word 1 of item 2 of lastLine into theStateend ifwrite theName & tab & theCompany & tab & theStreet & tab & ¬theCity & tab & theState & tab & theZip & tab & thePhones & ¬theNotes & return to file fileNamego next cardend repeatclose file fileNameend ImportTextFromOldStack-----  Export Text Operations  -------------------------------------on exportText-- Requires handler: writeExportedText-- Requires function handler: lastHCItem-- if shiftKey is down use only the marked cardsif the shiftKey is down thenput false into useAllCardsput "des cartes marquées" & space into prompt -- ∆put number of marked cards into numCardselseput true into useAllCardsput empty into promptput number of cards in bg "Body" into numCardsend ifask file "Exporter le texte" && prompt & "vers le fichier :" with "Fichier d'adresses" -- ∆if the result is "Annuler" or it is empty then exit exportTextput it into fileNamewriteExportedText numCards, useAllCards, fileNameif numCards = 1 then put "carte" into info -- ∆else put "cartes" into info -- ∆answer "Le texte de" && numCards && info && ¬"a été exporté dans le nouveau fichier “" & lastHCItem(":",fileName) & "”." -- ∆end exportTexton writeExportedText numCards, useAllCards, fileName-- Requires function handler: theFieldslock screenif useAllCards then go card 1 of bg "Body"else go first marked cardput theFields() into fieldListopen file fileNamerepeat with currentCard = 1 to numCardsset cursor to busyput empty into theTextrepeat with i = 1 to (number of items in fieldList - 1)put value of (item i of fieldList) & tab after theTextend repeatput SubstituteChar(return,"…",  value of (item i + 1 of fieldList)) & ¬tab & return after theTextwrite theText to file fileNameif not useAllCards then go next marked cardelse go next card of this bgend repeatclose file fileNameunlock screenend writeExportedText-----  Utility Handlers  --------------------------------------------on deleteCurrentCardlock screenpush prev cddoMenu "Delete Card"pop cdunlock screenend deleteCurrentCardfunction LastHCItem theDelim,theText-- returns the portion of <theText> that follows the last <delim>put SwapItemDelimiter(theDelim) into oldDelimput last item of theText into theResultset the itemDelimiter to oldDelimreturn theResultend LastHCItemfunction SubstituteChar origChar, newChar, theText-- returns ‘theText’ with ‘newChar’ substituted for all instances of ‘origChar’repeatput Offset(origChar, theText) into charPosif charPos = 0 then return theTextput newChar into char charPos of theTextend repeatend SubstituteCharfunction SwapItemDelimiter newDelim-- change the itemDelimiter, return the old delimiter for later resettingput the itemDelimiter into oldDelimset the itemDelimiter to newDelimreturn oldDelimend SwapItemDelimiteron prestosend "idle" to bg btn id 108end presto-----  Data Handlers  ----------------------------------------------function theFieldsreturn "bg fld id 4,bg fld id 97," & ¬"bg fld id 6,bg fld id 98,bg fld id 99," & ¬"bg fld id 104,bg fld id 8,bg fld id 100," & ¬"bg fld id 101,bg fld id 102,bg fld id 7"end theFields</script>
</background>